{%MainUnit unit1.pas}
type
  TMyRecord = record

  PMyRecord = ^TMyRecord;

procedure Do1;
begin
end;

